14: End If
15: 'Normally, you would check the database
16: 'to see to which workgroup a user belongs
17: Set theApplication.theSomeWorkgroupProxy = New SomeWorkgroupProxy
18: theApplication.theSomeWorkgroupProxy.startProcess
19:
20: 'MsgBox theApplication.theUser.UserID & vbNewLine _
21: ' & theApplication.theUser.UserPassword & vbNewLine & isLoggedIn
22: 'Note that the encrypted password should be persisted
23: End Sub
24:
The closeAccount method of the CloseAccount class looks like Listing 14.6.
LISTING 14.6. THEcloseAccountMETHOD.
1: Public Sub closeAccount()
2: On Error GoTo closeAccountErr
3:
4: 'your code goes here
5: theApplication.theAppTransactions.addTrans2MemLog Closed Account
6: Exit Sub
7: closeAccountErr:
8: Call RaiseError(MyUnhandledError, CloseAccount:closeAccount Method)
9: End Sub
10:
Listing 14.7 shows the deposit method for the DepositFunds class.
LISTING 14.7. THEdepositMETHOD.
1: Public Sub deposit()
2: On Error GoTo depositErr
3:
4: 'your code goes here
5: theApplication.theAppTransactions.addTrans2MemLog Deposited funds
6: Exit Sub
7: depositErr:
8: Call RaiseError(MyUnhandledError, DepositFunds:deposit Method)
9: End Sub
10:
